home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / util / rexx / Homebanking.lha / Homebanking / CheckUeberweisung.adm < prev    next >
Encoding:
Text File  |  1999-03-29  |  5.1 KB  |  158 lines
  1. /*  $VER: Checkueberweisung Version 1.2 vom 17.03.1999
  2.  
  3.     von Frank Seidel
  4.  
  5.     Fr.Seidel@t-online.de
  6.     http://home.t-online.de/home/Fr.Seidel/start.html
  7.  
  8.     Überrüft beim starten des Amigas (wenn dieses Skript in WBStartup liegt) ob für Übermorgen, Morgen und den
  9.     heutigen Tag eine Überweisung vorliegt und startet die heutige Überweisung auf Wunsch.
  10.     Außerdem erinnert es bis zwei Tage später an vergessene Überweisungen.
  11.  
  12. */
  13.  
  14. IF ~SHOW(LIBRARIES,'rexxsupport.library') THEN
  15.    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN
  16.       EXIT 10
  17. IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
  18.    IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
  19.       EXIT 10
  20.  
  21. Flags = 'rtez_flags = ezreqf_centertext'
  22.  
  23. vorgestern=date('s',Date('I')-2)
  24. Jahr = substr(vorgestern,3,2)
  25. Monat = substr(vorgestern,5,2)
  26. Tag = substr(vorgestern,7,2)
  27. vorgestern = Tag || Monat || Jahr
  28.  
  29. gestern=date('s',Date('I')-1)
  30. Jahr = substr(gestern,3,2)
  31. Monat = substr(gestern,5,2)
  32. Tag = substr(gestern,7,2)
  33. gestern = Tag || Monat || Jahr
  34.  
  35. datum=date(s)
  36. Jahr = substr(datum,3,2)
  37. Monat = substr(datum,5,2)
  38. Tag = substr(datum,7,2)
  39. datum = Tag || Monat || Jahr
  40.  
  41. morgen=date('s',Date('I')+1)
  42. Jahr = substr(morgen,3,2)
  43. Monat = substr(morgen,5,2)
  44. Tag = substr(morgen,7,2)
  45. morgen = Tag || Monat || Jahr
  46.  
  47. uebermorgen=date('s',Date('I')+2)
  48. Jahr = substr(uebermorgen,3,2)
  49. Monat = substr(uebermorgen,5,2)
  50. Tag = substr(uebermorgen,7,2)
  51. uebermorgen = Tag || Monat || Jahr
  52.  
  53. IF ~EXISTS('S:üwsg') THEN call Fehler1
  54.  
  55. StartSkriptDir = "S:Üwsg/"
  56. alle = #?
  57.  
  58. OPTIONS RESULTS
  59. address command 'c:list nohead quick' (StartskriptDir || uebermorgen || alle) 'to ENV:Checküwsg'
  60. line2 = OPEN('EDIT','ENV:Checküwsg','R')
  61. line1 = READLN('EDIT')
  62. IF LENGTH line1 > 1 THEN
  63.      EDIT = SPACE(line1,0)
  64. IF POS(uebermorgen,EDIT) > 0 THEN  1 Then call rtezrequest("Achtung - Übermorgen Überweisungen erledigen", "Danke für den Tip")
  65. line2 = Close('EDIT')
  66.  
  67. OPTIONS RESULTS
  68. address command 'c:list nohead quick' (StartskriptDir || morgen || alle) 'to ENV:Checküwsg'
  69. line2 = OPEN('EDIT','ENV:Checküwsg','R')
  70. line1 = READLN('EDIT')
  71. IF LENGTH line1 > 1 THEN
  72.      EDIT = SPACE(line1,0)
  73. IF POS(Morgen,EDIT) > 0 Then call rtezrequest("Achtung - Morgen Überweisungen erledigen", "Danke für den Tip")
  74. line2 = Close('EDIT')
  75.  
  76. OPTIONS RESULTS
  77. address command 'c:list nohead quick' (StartskriptDir || gestern || alle) 'to ENV:Checküwsg'
  78. line2 = OPEN('EDIT','ENV:Checküwsg','R')
  79. line1 = READLN('EDIT')
  80. IF LENGTH line1 > 1 THEN
  81.      EDIT = SPACE(line1,0)
  82. IF POS(Gestern,EDIT) > 0 Then call rtezrequest 'Achtung !!!'||'0A'x||'Gestern wurde mindestens eine Überweisung vergessen:'||'0A'x|| line1 ||'0A'x||'** bitte per ToolManager_StartADM ausführen **',"Danke für den Tip",'Information',Flags
  83. line2 = Close('EDIT')
  84.  
  85. OPTIONS RESULTS
  86. address command 'c:list nohead quick' (StartskriptDir || vorgestern || alle) 'to ENV:Checküwsg'
  87. line2 = OPEN('EDIT','ENV:Checküwsg','R')
  88. line1 = READLN('EDIT')
  89. IF LENGTH line1 > 1 THEN
  90.      EDIT = SPACE(line1,0)
  91. IF POS(Vorgestern,EDIT) > 0 Then call rtezrequest 'Achtung !!!'||'0A'x||'Vorgestern wurde mindestens eine Überweisung vergessen:'||'0A'x|| line1 ||'0A'x||'** bitte per ToolManager_StartADM ausführen **',"Danke für den Tip",'Information',Flags
  92. line2 = Close('EDIT')
  93.  
  94. OPTIONS RESULTS
  95. address command 'c:list nohead quick' (StartskriptDir || datum || alle) 'to ENV:Checküwsg'
  96. line2 = OPEN('EDIT','ENV:Checküwsg','R')
  97. DO WHILE ~EOF('EDIT')
  98. line1 = READLN('EDIT')
  99. line2 = READLN('EDIT')
  100. line3 = READLN('EDIT')
  101. line4 = READLN('EDIT')
  102. line5 = READLN('EDIT')
  103. IF LENGTH line1 > 1 THEN
  104.      EDIT = SPACE(line1,0)
  105.  
  106. IF POS(Datum,EDIT) < 1 THEN
  107.   call keine
  108.  
  109. IF LENGTH line2 > 1 Then address command 'setenv 2.Ueberweisung' line2
  110. IF LENGTH line3 > 1 Then address command 'setenv 3.Ueberweisung' line3
  111. IF LENGTH line4 > 1 Then address command 'setenv 4.Ueberweisung' line4
  112. IF LENGTH line5 > 1 Then address command 'setenv 5.Ueberweisung' line5
  113.  
  114. IF POS(Datum,EDIT) > 0 THEN
  115.         OPTIONS RESULTS
  116.           call rtezrequest 'folgende Überweisungen'||'0A'x||'   liegen heute an:'||'0A'x||'1. 'line1||'0A'x||'2. 'line2||'0A'x||'3. 'line3||'0A'x||'4. 'line4||'0A'x||'5. 'line5,' 1. gleich starten | _mach ich später selber','Information'
  117.             if RESULT = 1
  118.                then call starten
  119.             ELSE DO
  120.                call rtezrequest("Aber nicht vergessen ", "_Na klar")
  121.             call putze
  122.  
  123. starten:
  124. address command 'sys:rexxc/rx >NIL:' StartskriptDir || line1
  125. call putze
  126.  
  127. keine:
  128. IF ~EXISTS('ENVARC:NoInfoAnzeige') THEN
  129. call rtezrequest("heute sind keine Überweisungen vorhanden", "Jepp | _Zeige Infofenster nur wenn Überweisung fällig")
  130.       IF RESULT = 1
  131.          THEN call putze
  132.       IF RESULT = 0
  133.          THEN call noinfo
  134.  
  135.  
  136. call putze
  137.  
  138. exit
  139.  
  140. noinfo:
  141. call rtezrequest 'Dies kann durch löschen der Datei:'||'0A'x||'---> ENVARC:NoInfoAnzeige <---'||'0A'x||'rückgangig gemacht werden','_verstanden','Info',Flags
  142.        address command
  143.       'setenv NoInfoAnzeige "Zeige Infofenster nur wenn Überweisung fällig"'
  144.       'copy ENV:NoInfoAnzeige to ENVARC:'
  145.  
  146.  
  147. putze:
  148. line2 = Close('EDIT')
  149. address command
  150. 'run >NIL: c:delete ENV:Checküwsg'
  151.  
  152. exit
  153.  
  154. Fehler1:
  155.    rtezrequest("kann Überweisungverzeichnis - S:Üwsg - nicht finden", "Abbruch")
  156.    exit
  157. end
  158.